COVID 19 Analysis

Cases by Country on April 29th
Data from the European Union's European Centre for Disease Prevention and Control
Country Total Cases
Brazil 66501
Peru 28699
Ecuador 23240
Mexico 15529
Chile 13813
Dominican_Republic 6135
Panama 6021
Colombia 5597
Argentina 3990
Cuba 1389
Puerto_Rico 1389
Bolivia 1014
Costa_Rica 697
Honduras 693
Uruguay 620
Guatemala 530
Venezuela 329
El_Salvador 323
Paraguay 230
Haiti 76
Nicaragua 13
Cases per Capita by Country on April 29th
Data from the European Union's European Centre for Disease Prevention and Control
Country Cases Per Capita
Panama 57.938080
Peru 36.949906
Ecuador 30.495734
Chile 25.735271
Brazil 22.022317
Mexico 6.751681
Bolivia 5.637206
Puerto_Rico 5.633533
Argentina 5.011855
Colombia 4.390851

Combined Data Analysis

## 
## Call:
## lm(formula = running_sum ~ gini_2017 + pop_millions + gdp_billions + 
##     health_exp_gdp_2016 + out_pocket_exp_2016 + private_exp_pp_2016, 
##     data = b)
## 
## Residuals:
##       1       2       3       4       5       9      13      16      17      18 
##  -674.4   551.9  1121.7 -5238.4 -4538.1    93.4 -1696.6  4401.2  1794.1  2858.0 
##      20 
##  1327.4 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(>|t|)   
## (Intercept)         53912.82   26536.83   2.032  0.11201   
## gini_2017           -1535.64     494.36  -3.106  0.03600 * 
## pop_millions         1534.95     545.27   2.815  0.04807 * 
## gdp_billions         -119.47      53.62  -2.228  0.08979 . 
## health_exp_gdp_2016 -5355.34    1840.97  -2.909  0.04372 * 
## out_pocket_exp_2016  1097.55     217.52   5.046  0.00725 **
## private_exp_pp_2016    92.92      24.39   3.810  0.01895 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 4622 on 4 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.9787, Adjusted R-squared:  0.9467 
## F-statistic: 30.58 on 6 and 4 DF,  p-value: 0.002654
## 
## Call:
## lm(formula = scale(running_sum) ~ scale(gini_2017) + scale(pop_millions) + 
##     scale(gdp_billions) + scale(health_exp_gdp_2016) + scale(out_pocket_exp_2016) + 
##     scale(private_exp_pp_2016), data = b)
## 
## Residuals:
##         1         2         3         4         5         9        13        16 
## -0.043279  0.035414  0.071982 -0.336145 -0.291210  0.005993 -0.108872  0.282421 
##        17        18        20 
##  0.115124  0.183395  0.085176 
## attr(,"scaled:center")
## [1] 8420
## attr(,"scaled:scale")
## [1] 15584
## 
## Coefficients:
##                            Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                 -0.3365     0.2614  -1.287  0.26740   
## scale(gini_2017)            -0.4297     0.1383  -3.106  0.03600 * 
## scale(pop_millions)          4.8614     1.7269   2.815  0.04807 * 
## scale(gdp_billions)         -4.7464     2.1301  -2.228  0.08979 . 
## scale(health_exp_gdp_2016)  -0.7201     0.2475  -2.909  0.04372 * 
## scale(out_pocket_exp_2016)   0.8478     0.1680   5.046  0.00725 **
## scale(private_exp_pp_2016)   1.0649     0.2795   3.810  0.01895 * 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.2966 on 4 degrees of freedom
##   (10 observations deleted due to missingness)
## Multiple R-squared:  0.9787, Adjusted R-squared:  0.9467 
## F-statistic: 30.58 on 6 and 4 DF,  p-value: 0.002654

## `geom_smooth()` using method = 'loess' and formula 'y ~ x'